929
21994 
데이터 프레임을 그룹으로 나누고 각 그룹에는 동일한 수의 관찰이 있습니다. 각 그룹에 1 또는 0의 값을 무작위로 할당했습니다. 값이 1 인 그룹의 모든 관측치에 대해 변수 ysp를 임의의 1과 0으로 채워야합니다. 0이 할당 된 그룹의 경우 동일한 변수 ysp가 모두 0으로 채워지기를 원합니다.
이것은 내가 지금까지 가지고있는 코드입니다.
rm (목록 = ls (모두 = TRUE))
set.seed (1984)
ngroup <-50 # 그룹 수
obs <-50 # 그룹당 관측치 수
pgroup <-0.5 # (1-p) 0이 아닌 ob가 1 개 이상있는 그룹의 확률 (답이 반올림 인 경우에만 작동)
p <-0.5 # 0이 아닌 obs가 하나 이상있는 그룹의 수를 선택하면 해당 그룹에서 1의 p %를 원합니다.
상수 데이터 <-data.frame (id = 1 : ngroup)
더미 <-c (0,1)
더미 [sample (1 : nrow (constantdata), nrow (constantdata), FALSE)] <-rep (dummies, c (pgroup * ngroup, (1-pgroup) * ngroup))
constantdata [ "probgr"] <-더미
fulldata <-constantdata [rep (1 : ngroup, each = obs),]
fulldata $ ys <-rnorm (ngroup * obs)
# 이렇게하려는 방법
if (fulldata $ probgr = 1) {
fulldata $ ysp [fulldata $ ys> quantile (fulldata $ ys, 1-p)] <-1
fulldata $ ysp [fulldata $ ys <= quantile (fulldata $ ys, 1-p)] <-0
}그밖에{
fulldata $ ysp = 0}
물론 이것은 작동하지 않습니다.
변수 ysp에 50 % (pgroup %) 임의 그룹이 모두 0이고 다른 50 % (1-pgroup %) 그룹이 p % 1과 0을 임의로 할당되도록합니다.
2021-02-24 08:16:10 
if (fulldata $ probgr = 1)을 작성한 곳은 아마도 if (fulldata $ probgr == 1) (할당이 아니라 동등성 테스트)를 의미했을 것입니다. 또한 벡터 연산이 아닌 경우. 원하는 것을 얻는 방법은 ysp의 모든 것을 0으로 설정 한 다음 probgr == 1로 무작위로 다음과 같이 변경하는 것입니다.
fulldata $ ysp = 0
fulldata $ ysp [fulldata $ probgr == 1] = sample (0 : 1, sum (fulldata $ probgr == 1), replace = TRUE)
1
|
너의 답
StackExchange.ifUsing ( "editor", function () {
StackExchange.using ( "externalEditor", function () {
StackExchange.using ( "snippets", function () {
StackExchange.snippets.init ();
});
});
}, "코드 스 니펫");
StackExchange.ready (function () {
var channelOptions = {
태그 : "".split ( ""),
id : "1"
};
initTagRenderer ( "". split ( ""), "".split ( ""), channelOptions);
StackExchange.using ( "externalEditor", function () {
// 스 니펫이 활성화 된 경우 스 니펫 후에 편집기를 실행해야합니다.
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using ( "snippets", function () {
createEditor ();
});
}
else {
createEditor ();
}
});
function createEditor () {
StackExchange.prepareEditor ({
useStacksEditor : false,
heartbeatType : '답변',
autoActivateHeartbeat : false,
convertImagesToLinks : true,
noModals : true,
showLowRepImageUploadWarning : true,
scoreToPostImages : 10,
bindNavPrevention : true,
접미사 : "",
imageUploader : {
brandingHtml : "Powered by \ u003ca href = \"https : //imgur.com/ \ "\ u003e \ u003csvg class = \"svg-icon \ "width = \"50 \ "height = \"18 \ "viewBox = \ "0 0 50 18 \"fill = \ "none \"xmlns = \ "http : //www.w3.org/2000/svg \"\ u003e \ u003cpath d = \ "M46.1709 9.17788C46.1709 8.26454 46.2665 7.94324 47.1084 7.58816C47.4091 7.46349 47.7169 7.36433 48.0099 7.26993C48.9099 6.97997 49.672 6.73443 49.672 5.93063C49.672 5.22043 48.9832 4.61182 48.1414 4.6931182C47.4335 4.61182 46.7256 4.52513.6307884.65959531 43.5251. 43.1481 6.59048V11.9512C43.1481 13.2535 43.6264 13.8962 44.6595 13.8962C45.6924 13.8962 46.1709 13.2535 46.1709 11.9512V9.17788Z \ "/ \ u003e \ u003cpath d = \"M32.492 10.1419C32.492 12.697954 34.104182 14.0484 37.0451 14.0484 41.5985 12.6954 41.5985 10.1419V6.59049C41.5985 5.28821 41.1394 4.66232 40.1061 4.66232C39.0732 4.66232 38.5948 5.28821 38.5948 6.59049V9.60062C38.5948 10.8521 38.2696 11.5455 37.0451 11.5455C35.8209 11.5455 35.4954 10.8 521 35.4954 9.60062V6.59049C35.4954 5.28821 35.0173 4.66232 34.0034 4.66232C32.9703 4.66232 32.492 5.28821 32.492 6.59049V10.1419Z \ "/ \ u003e \ u003cpath fill-rule = \"evenodd \ "clip-rule = \"evenodd \ "d = \ "M25.6622 17.6335C27.8049 17.6335 29.3739 16.9402 30.2537 15.6379C30.8468 14.7755 30.9615 13.5579 30.9615 11.9512V6.59049C30.9615 5.28821 30.4833 4.66231 29.4502 4.66231C28.9913 4.66231 4.66231C28.9913 4.66231 285.733.4555 4.9456087 28.1109 5.50756087 .1369 4.56087 21.0134 6.57349 21.0134 9.27932C21.0134 11.9852 23.003 13.913 25.3754 13.913C26.5612 13.913 27.4607 13.4902 28.1109 12.6616C28.1109 12.7229 28.1161 12.7799 28.121 12.8346C28.1256 12.8854 28.1301 12.9839342 15.1301 25. 15.2321 24.1352 14.9821 23.5661 14.7787C23.176 14.6393 22.8472 14.5218 22.5437 14.5218C21.7977 14.5218 21.2429 15.0123 21.2429 15.6887C21.2429 16.7375 22.9072 17.6335 25.6622 17.628335ZM24.1317 9.27932C24.1317 7.94324 7.0932C24.1317 7.94324 27.2119 7.09766 28.0918 7.94324 28.0918 9.27932C28.0918 10.6321 27.2311 11.5116 26.1024 11.5116C24.9737 11.5116 24.1317 10.6491 24.1317 9.27932Z \ "/ \ u003e \ u003cpath d = \"M16.809.345 11.9512C16.8045 13.8962 17.2637 13.8962 13.2962 17.2637 13.8962 19.8079 13.2535 19.8079 11.9512V8.12928C19.8079 5.82936 18.4879 4.62866 16.4027 4.62866C15.1594 4.62866 14.279 4.98375 13.3609 5.88013C12.653 5.05154 11.6581 4.62866 10.3573 4.62866C9.34336 4.62866 7.78506C9.34336 4.62866 8.510506 5.00066 5.28821 5.00066 6.59049V11.9512C5.00066 13.2535 5.47873 13.8962 6.51203 13.8962C7.54479 13.8962 8.0232 13.2535 8.0232 11.9512V8.90741C8.0232 7.58817 8.44431 6.91179 9.53458 6.91179C10.5104 6.91179 10.893 7.58817 10.893 8.94108V11.4049512C10.893 13.2. C13.4375 13.8962 13.9157 13.2535 13.9157 11.9512V8.90741C13.9157 7.58817 14.3365 6.91179 15.4269 6.91179C16.4027 6.91179 16.8045 7.58817 16.8045 8.94108V11.9512Z \ "/ \ u003e \ u003cpath d = \ "M3.31675 6.59049C3.31675 5.28821 2.83866 4.66232 1.82471 4.66232C0.791758 4.66232 0.313354 5.28821 0.313354 6.59049V11.9512C0.313354 13.2535 0.791758 13.8962 1.82471 13.8962C2.85798 13.8962 3.31675 13.2535 3.31675 11.9512V6.59049Z u003e \ u003cpath d = \ "M1.87209 0.400291C0.843612 0.400291 0 1.1159 0 1.98861C0 2.87869 0.822846 3.57676 1.87209 3.57676C2.90056 3.57676 3.7234 2.87869 3.7234 1.98861C3.7234 1.1159 2.90056 0.400291 1.87209 0.400291Z \"fill = \ "# 1BB76E \ "/ \ u003e \ u003c / svg \ u003e \ u003c / a \ u003e",
contentPolicyHtml : "사용자 기여는\ u003ca href = \ "https : //stackoverflow.com/help/licensing \"\ u003ecc by-sa \ u003c / a \ u003e \ u003ca href = \ "https : //stackoverflow.com/legal/content-policy \ "\ u003e (콘텐츠 정책) \ u003c / a \ u003e",
allowUrls : true
},
onDemand : true,
폐기 선택기 : ".discard-answer"
, immediatelyShowMarkdownHelp : true, enableTables : true, enableSnippets : true
});
}
});
Stack Overflow에 대한 답변에 기여해 주셔서 감사합니다!
질문에 반드시 답해주십시오. 세부 사항을 제공하고 연구를 공유하십시오!
그러나 피하십시오…
도움, 설명을 요청하거나 다른 답변에 응답합니다.
의견에 근거한 진술 작성 참고 자료 또는 개인적인 경험으로 백업하십시오.
자세한 내용은 훌륭한 답변 작성에 대한 팁을 참조하십시오.
초안 저장
초안이 삭제되었습니다.
가입 또는 로그인
StackExchange.ready (function () {
StackExchange.helpers.onClickDraftSave ( '# login-link');
});
Google을 사용하여 가입
Facebook을 사용하여 가입
이메일 및 비밀번호를 사용하여 가입
제출
게스트로 게시
이름
이메일
필수이지만 표시되지 않음
StackExchange.ready (
함수 () {
StackExchange.openid.initPostLogin ( '. new-post-login', 'https % 3a % 2f % 2fstackoverflow.com % 2fquestions % 2f45538164 % 2fhow-do-i-get-a-random-assignment-of-1-and- 0-for-a-subset-of-my-data-and-0-for-t % 23new-answer ','question_page ');
}
);
게스트로 게시
이름
이메일
필수이지만 표시되지 않음
답변 게시
포기
"답변 게시"를 클릭하면 서비스 약관, 개인 정보 보호 정책 및 쿠키 정책에 동의하게됩니다.
찾고있는 답변이 아닙니까? r 무작위 그룹으로 태그가 지정된 다른 질문을 찾아 보거나 직접 질문하십시오.